home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 October / CHIP 1996 oktober (CD08).zip / CHIP_CD08.BIN / scene / antiq.'96 / lamer / lammer.zip / STAR.PAS < prev    next >
Pascal/Delphi Source File  |  1996-07-19  |  24KB  |  590 lines
  1. Uses Crt,Graph;
  2.  
  3. Const
  4.      pure_WIDTH = 80;
  5.      pure_DEPTH = 23;
  6.      pure : Array [1..3680] Of Char = (
  7.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  8.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,'─',#007,
  9.     '─',#007,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  10.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  11.     '─',#015,'─',#015,'─',#015,' ',#007,' ',#007,' ',#007,' ',#007,
  12.     'i',#010,'t',#010,' ',#010,'w',#010,'a',#010,'s',#010,' ',#010,
  13.     'a',#010,' ',#010,' ',#007,'─',#015,'─',#015,'─',#015,'─',#015,
  14.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  15.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#007,
  16.     '─',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  17.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  18.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  19.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  20.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#023,'f',#023,'r',#023,
  21.     'e',#023,'e',#023,' ',#023,'y',#023,'o',#023,'u',#023,'r',#023,
  22.     ' ',#007,' ',#007,'█',#011,'█',#011,'█',#011,'█',#011,'▄',#011,
  23.     ' ',#011,'█',#011,'█',#011,'█',#011,'▌',#011,' ',#011,'▐',#011,
  24.     '█',#011,'█',#011,'▌',#011,' ',#007,'█',#011,'█',#011,'█',#011,
  25.     '█',#011,'▄',#011,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  26.     ' ',#023,'f',#023,'r',#023,'e',#023,'e',#023,' ',#023,'y',#023,
  27.     'o',#023,'u',#023,'r',#023,' ',#007,' ',#007,' ',#007,' ',#007,
  28.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  29.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  30.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  31.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  32.     ' ',#023,' ',#023,' ',#023,' ',#023,' ',#023,'m',#023,'i',#023,
  33.     'n',#023,'d',#023,'!',#023,' ',#007,' ',#007,'█',#011,'▌',#011,
  34.     ' ',#011,' ',#007,'▐',#011,'▐',#011,'▌',#011,' ',#007,' ',#007,
  35.     '█',#011,'▐',#011,'▌',#011,' ',#007,' ',#007,'█',#011,' ',#007,
  36.     '█',#011,'▌',#011,' ',#011,' ',#007,'█',#011,' ',#007,' ',#007,
  37.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  38.     ' ',#007,'t',#135,'i',#135,'m',#135,'e',#135,'!',#135,' ',#007,
  39.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  40.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  41.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  42.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  43.     ' ',#007,' ',#007,' ',#007,' ',#023,' ',#023,' ',#007,' ',#011,
  44.     '░',#011,'▒',#011,'▓',#011,' ',#007,' ',#007,' ',#007,' ',#007,
  45.     ' ',#007,'█',#011,'▌',#011,' ',#011,' ',#011,'▐',#011,'▐',#011,
  46.     '▌',#011,' ',#007,' ',#007,'█',#011,'▐',#011,'▌',#011,' ',#007,
  47.     ' ',#007,'█',#011,' ',#007,'█',#011,'▌',#011,' ',#011,' ',#007,
  48.     '█',#011,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,'▓',#011,
  49.     '▒',#011,'░',#011,' ',#007,' ',#007,' ',#023,' ',#023,' ',#023,
  50.     ' ',#023,' ',#023,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  51.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  52.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  53.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  54.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#023,
  55.     ' ',#023,' ',#007,' ',#011,'░',#011,'▒',#011,'▓',#011,' ',#007,
  56.     ' ',#007,' ',#007,' ',#007,' ',#007,'█',#011,'▌',#011,'▀',#011,
  57.     '▀',#011,'▀',#011,'▐',#011,'▌',#011,' ',#007,' ',#007,'█',#011,
  58.     '▐',#011,'▌',#011,' ',#007,' ',#007,'█',#011,' ',#007,'█',#011,
  59.     '▌',#011,'▀',#011,'▐',#011,'▀',#011,' ',#007,' ',#007,' ',#007,
  60.     ' ',#007,' ',#007,'▓',#011,'▒',#011,'░',#011,' ',#007,' ',#007,
  61.     ' ',#023,' ',#023,' ',#023,' ',#023,' ',#023,' ',#007,' ',#007,
  62.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  63.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  64.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  65.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  66.     ' ',#007,' ',#007,' ',#023,' ',#023,' ',#007,' ',#011,'░',#011,
  67.     '▒',#011,'▓',#011,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  68.     '▐',#011,'▌',#011,' ',#007,' ',#007,' ',#011,' ',#007,'█',#011,
  69.     '█',#011,'█',#011,'│',#007,' ',#007,'█',#011,'█',#011,'█',#011,
  70.     '│',#007,' ',#007,'▐',#011,'▌',#011,' ',#011,'▐',#011,'█',#011,
  71.     ' ',#011,' ',#007,' ',#007,' ',#007,' ',#007,'▓',#011,'▒',#011,
  72.     '░',#011,' ',#007,' ',#007,' ',#023,' ',#023,' ',#023,' ',#023,
  73.     ' ',#023,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  74.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  75.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  76.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  77.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  78.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  79.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#011,' ',#007,' ',#007,
  80.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  81.     ' ',#007,' ',#007,'p',#015,'r',#015,'o',#015,'d',#015,'u',#015,
  82.     'c',#015,'t',#015,'i',#015,'o',#015,'n',#015,' ',#007,' ',#007,
  83.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  84.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  85.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  86.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  87.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  88.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,'─',#007,
  89.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  90.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  91.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  92.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  93.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  94.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  95.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#007,
  96.     '─',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  97.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  98.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  99.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  100.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  101.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  102.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  103.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  104.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  105.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  106.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  107.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  108.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  109.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#012,
  110.     ' ',#012,' ',#012,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  111.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  112.     ' ',#007,' ',#012,' ',#012,'C',#007,'o',#007,'d',#007,'e',#007,
  113.     ' ',#012,'.',#012,'.',#012,'.',#012,'.',#012,'.',#012,'.',#012,
  114.     '.',#012,'.',#012,'.',#012,'.',#012,'.',#012,'.',#012,'.',#012,
  115.     '.',#012,'.',#012,'.',#012,'.',#012,'.',#012,'.',#012,'.',#012,
  116.     '.',#012,'.',#012,'.',#012,'.',#012,'.',#012,'.',#012,'.',#012,
  117.     '.',#012,'.',#012,' ',#012,'T',#013,'A',#013,'H',#007,'-',#015,
  118.     'O',#015,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  119.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  120.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  121.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  122.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  123.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,'M',#007,
  124.     'u',#007,'Z',#007,'a',#007,'K',#007,' ',#012,'.',#012,'.',#012,
  125.     '.',#012,'.',#012,'.',#012,'.',#012,'.',#012,'.',#012,'.',#012,
  126.     '.',#012,'.',#012,'.',#012,'.',#012,'.',#012,'.',#012,'.',#012,
  127.     '.',#012,'.',#012,'.',#012,'.',#012,'.',#012,'.',#012,'.',#012,
  128.     '.',#012,'.',#012,'.',#012,'.',#012,' ',#012,'Z',#013,'O',#013,
  129.     'M',#007,'B',#007,'E',#015,'E',#015,' ',#007,' ',#007,' ',#007,
  130.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  131.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  132.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  133.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  134.     ' ',#007,' ',#007,' ',#007,' ',#007,'─',#015,'─',#015,'─',#015,
  135.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  136.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  137.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  138.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  139.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  140.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  141.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#007,' ',#007,
  142.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  143.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  144.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  145.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  146.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  147.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  148.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  149.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  150.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  151.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  152.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  153.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  154.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  155.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  156.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  157.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,'G',#013,
  158.     'r',#007,'e',#007,'e',#007,'T',#007,'i',#007,'n',#007,'x',#007,
  159.     ' ',#007,'g',#007,'o',#007,'e',#007,'s',#007,' ',#007,'t',#007,
  160.     'o',#007,':',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  161.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  162.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  163.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  164.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  165.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  166.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  167.     ' ',#010,' ',#010,' ',#010,' ',#010,' ',#007,' ',#007,' ',#007,
  168.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  169.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  170.     ' ',#007,' ',#007,' ',#007,'F',#010,' ',#010,'U',#010,' ',#010,
  171.     'T',#010,' ',#010,'U',#010,' ',#010,'R',#010,' ',#010,'E',#010,
  172.     ' ',#010,' ',#010,' ',#010,' ',#010,'C',#010,' ',#010,'R',#010,
  173.     ' ',#010,'E',#010,' ',#010,'W',#010,' ',#010,' ',#007,' ',#007,
  174.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  175.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  176.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  177.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  178.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  179.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  180.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  181.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  182.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  183.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  184.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  185.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  186.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  187.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  188.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  189.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  190.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  191.     ' ',#007,' ',#007,' ',#007,' ',#007,'─',#015,'─',#015,'─',#015,
  192.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  193.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  194.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  195.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  196.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  197.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  198.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#007,
  199.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  200.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  201.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  202.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  203.     ' ',#007,' ',#007,'A',#007,'m',#007,'e',#007,'n',#007,'n',#007,
  204.     'y',#007,'i',#007,'b',#007,'e',#007,'n',#007,' ',#007,'e',#007,
  205.     'z',#007,'e',#007,'n',#007,' ',#007,'p',#007,'r',#007,'o',#007,
  206.     'd',#007,'u',#007,'k',#007,'c',#007,'i',#007,'ó',#007,' ',#007,
  207.     'h',#015,'e',#015,'l',#015,'y',#015,'e',#015,'z',#015,'é',#015,
  208.     's',#015,'t',#015,' ',#007,'é',#015,'r',#015,'n',#015,'e',#015,
  209.     ' ',#007,'e',#015,'l',#015,',',#007,' ',#007,'ú',#007,'g',#007,
  210.     'y',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  211.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  212.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  213.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  214.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,'n',#015,'y',#015,
  215.     'e',#015,'r',#015,'e',#015,'m',#015,'é',#015,'n',#015,'y',#015,
  216.     'ü',#015,'n',#015,'k',#015,'e',#015,'t',#015,' ',#007,'f',#015,
  217.     'ö',#015,'l',#015,'a',#015,'j',#015,'á',#015,'n',#015,'l',#015,
  218.     'j',#015,'u',#015,'k',#015,' ',#007,'L',#011,'A',#011,'Y',#011,
  219.     '-',#015,'n',#015,'a',#015,'k',#015,' ',#015,'é',#015,'s',#015,
  220.     ' ',#015,'L',#011,'O',#011,'Y',#011,'-',#015,'n',#015,'a',#015,
  221.     'k',#015,'.',#015,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  222.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  223.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  224.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  225.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,'─',#015,
  226.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  227.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  228.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  229.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  230.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  231.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  232.     '─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,'─',#015,
  233.     '─',#015,'─',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  234.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  235.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  236.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  237.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  238.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  239.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  240.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  241.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  242.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  243.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  244.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  245.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  246.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  247.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  248.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  249.     'J',#007,'a',#007,',',#007,' ',#007,'a',#007,' ',#010,'G',#010,
  250.     'r',#010,'e',#010,'e',#010,'t',#010,'i',#010,'N',#010,'x',#010,
  251.     'b',#015,'ô',#015,'l',#015,' ',#015,'v',#015,'é',#015,'l',#015,
  252.     'e',#015,'t',#015,'l',#015,'e',#015,'n',#015,'ü',#015,'l',#015,
  253.     ' ',#015,'k',#015,'i',#015,'f',#015,'e',#015,'l',#015,'e',#015,
  254.     'j',#015,'t',#015,'e',#015,'t',#015,'t',#015,'ü',#015,'k',#015,
  255.     ' ',#015,'a',#015,' ',#015,' ',#007,' ',#007,' ',#007,' ',#007,
  256.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  257.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  258.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  259.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  260.     ' ',#007,' ',#007,' ',#007,'C',#012,'o',#012,'n',#012,'t',#012,
  261.     'r',#012,'o',#012,'l',#012,'l',#012,'e',#012,'d',#012,' ',#012,
  262.     'D',#012,'r',#012,'e',#012,'a',#012,'m',#012,'s',#012,'e',#007,
  263.     't',#007,',',#007,' ',#007,'n',#007,'e',#007,'k',#007,'i',#007,
  264.     'k',#007,' ',#007,'i',#007,'s',#007,' ',#007,'ü',#007,'d',#007,
  265.     'v',#007,'ö',#007,'z',#007,'l',#007,'e',#007,'t',#007,'.',#007,
  266.     '.',#007,'.',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  267.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  268.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,
  269.     ' ',#007,' ',#007,' ',#007,' ',#007,' ',#007,' ',#007);
  270.  
  271.  
  272. var x,y,b: array[1..29] of Integer;
  273.     sx,sy,sb: array[1..12] of Integer;
  274.     sfx,sfy: array[1..12] of Integer;
  275.     dead: integer;
  276.     i,m,s,u,nx,ny:integer;
  277.     f: file of integer;
  278.  
  279. {Procedure Hiba;
  280. Begin
  281. ClrScr;
  282. WriteLn('I/O error');
  283. halt;
  284. End;}
  285.  
  286. procedure setrgb(col,r,g,b:Byte);Assembler;
  287. asm
  288.  xor bx,bx
  289.  mov bl,col
  290.  mov ch,r
  291.  mov cl,g
  292.  mov dh,b
  293.  mov al,10h
  294.  mov ah,10h
  295.  int 10h
  296. end;
  297.  
  298. Procedure Lo(x,y:byte; nx,ny:Integer; d:Integer);
  299. var i,m,s,u: Integer;
  300.     b: string[10];
  301. Begin
  302.   s:=random(400);
  303.   dead:=d;
  304.   For i:=1 to x do Begin
  305.     Delay(m);
  306.     SetRgb(0,41,40,31);
  307.     If y=1 then Begin
  308.       SetColor(3);
  309.       For u:=1 to 20 do Begin
  310.          Line(nx-49,ny,nx-200+s+u,480);
  311.          Line(nx+49,ny,nx-200+s+u,480);
  312.       End;
  313.       Str(dead,b);
  314.       SetColor(0);
  315.       OutTextXY(180,0,b);
  316.       dead:=dead+13;
  317.       Str(dead,b);
  318.       SetColor(12);
  319.       OutTextXY(0,0,'Number of Deads:');
  320.       OutTextXY(180,0,b);
  321.     End;
  322.     m:=random(50)+1;
  323.     delay(m);
  324.     SetRgb(0,0,0,0);
  325.     If y=1 then Begin
  326.         SetColor(0);
  327.         For u:=1 to 20 do Begin
  328.           Line(nx-49,ny,nx-200+s+u,480);
  329.           Line(nx+49,ny,nx-200+s+u,480);
  330.         End;
  331.     End;
  332.   End;
  333. End;
  334.  
  335.  
  336. Procedure tie1(ex,ey:Integer; co,koll,lov:byte);
  337. Var x1,y1,x2,y2,i: Integer;
  338. Begin
  339.   SetColor(co);
  340.   x1:=0; y1:=0;
  341.   For i:=1 to 29 do Begin
  342.     x2:=x[i]; y2:=y[i];
  343.     If b[i]=1 then Begin
  344.       Line(x1+ex,y1+ey,x2+ex,y2+ey);
  345.     End;
  346.     x1:=x2; y1:=y2;
  347.   End;
  348.   if koll=1 then Begin
  349.     SetColor(0);
  350.     delay(50);
  351.     if lov=1 then lo(Random(10),1,nx,ny,dead);
  352.     x1:=0; y1:=0;
  353.     For i:=1 to 29 do Begin
  354.      x2:=x[i]; y2:=y[i];
  355.      If b[i]=1 then Begin
  356.        Line(x1+ex,y1+ey,x2+ex,y2+ey);
  357.      End;
  358.      x1:=x2; y1:=y2;
  359.     End;
  360.   End;
  361. { Fillpolly(ex,ey);}
  362. End;
  363.  
  364. Procedure Star(ex,ey:Integer; co,mo:byte);
  365. Var x1,y1,x2,y2,i: Integer;
  366. Begin
  367.   SetColor(co);
  368.   x1:=0; y1:=0;
  369.   For i:=1 to 12 do Begin
  370.     x2:=sx[i]; y2:=sy[i];
  371.     If sb[i]=1 then Begin
  372.       Line(x1*mo+ex,y1*mo+ey,x2*mo+ex,y2*mo+ey);
  373.     End;
  374.     x1:=x2; y1:=y2;
  375.   End;
  376. End;
  377.  
  378. Procedure Star_Open;
  379. Begin
  380. Assign(f,'star.sam');
  381. Reset(f);
  382. {If IOresult<>0 then hiba;}
  383. For i:=1 to 12 do Begin
  384.    Read(f,m);
  385.    sx[i]:=m;
  386.    Read(f,m);
  387.    sy[i]:=m;
  388.    Read(f,m);
  389.    sb[i]:=m;
  390. End;
  391. Close(f);
  392. End;
  393.  
  394. Procedure Star_full;
  395. var m,s:Integer;
  396. Begin
  397. For i:=1 to 12 do Begin
  398.   Repeat
  399.      m:=random(640);
  400.   Until (m>35) and (m<620);
  401.   Repeat
  402.     s:=random(480);
  403.   Until (s>35) and (s<450);
  404.   sfx[i]:=m;
  405.   sfy[i]:=s;
  406. End;
  407. End;
  408.  
  409. Procedure Tie1_Open;
  410. Begin
  411. Assign(f,'tie_f.sam');
  412. Reset(f);
  413. {If IOresult<>0 then Hiba;}
  414. For i:=1 to 18+11 do Begin
  415.    Read(f,m);
  416.    x[i]:=m;
  417.    Read(f,m);
  418.    y[i]:=m;
  419.    Read(f,m);
  420.    b[i]:=m;
  421. End;
  422. Close(f);
  423. End;
  424.  
  425. Procedure Hatter;
  426. var i,m:integer;
  427. Begin
  428.   {a napocska}
  429.   SetColor(1);
  430.   For i:=1 to 50 do Circle(640,0,i);
  431.   For i:=0 to 30 do Line(640,0,640-i*10,480-(i*10)-180);
  432. {  SetColor(0);
  433.   For i:=1 to 30 do Circle(640,0,i);}
  434.   {a bolygo}
  435.   SetColor(2);
  436.   Circle(580,400,80);
  437.   Ellipse(545,365,0,360,20,15);
  438.   Ellipse(620,430,0,360,20,10);
  439.   SetColor(4);
  440.   Circle(510,315,10);
  441.   {Stars_draw}
  442.   For i:=1 to 12 do Star(sfx[i],sfy[i],3,1);
  443. End;
  444.  
  445. Procedure Mozg_Tfig(md,x,y:Integer; il:byte; d:Integer);
  446. var i,m,s,u,p:integer;
  447. Begin
  448.   nx:=x; ny:=y; dead:=d;
  449.   s:=0; m:=1;
  450.   For i:=1 to md do Begin
  451.     If s=10 then Begin
  452.       s:=0;
  453.       m:=random(2)+1;
  454.       Case m of
  455.         1: nx:=nx-10;
  456.         2: nx:=nx+10;
  457.       End;
  458.       p:=random(2)+1;
  459.       Case p of
  460.         1: ny:=ny-10;
  461.         2: ny:=ny+10;
  462.       End;
  463.       If (il=1) and (m=1) then Tie1(nx,ny,7,1,1);
  464.     End
  465.     Else Begin
  466.       s:=s+1;
  467.       Case m of
  468.          1: nx:=nx-10;
  469.          2: nx:=nx+10;
  470.       End;
  471.       Case p of
  472.         1: ny:=ny-10;
  473.         2: ny:=ny+10;
  474.       End;
  475.     End;
  476.     If nx<100 then nx:=100;
  477.     If ny<130 then ny:=130;
  478.     If nx>600 then nx:=600;
  479.     If ny>380 then ny:=380;
  480.     If (ny<170) and (nx>430) then Hatter
  481.     Else For u:=1 to 12 do Star(sfx[u],sfy[u],3,1);
  482.     Tie1(nx,ny,7,1,0);
  483.   End;
  484.   Tie1(nx,ny,7,0,0);
  485. End;
  486.  
  487. Procedure FadeIn(n,d:byte);
  488. var i:byte;
  489. Begin
  490.   For i:=1 to 63 do Begin
  491.     SetRgb(n,i,i,i);
  492.     Delay(d*10);
  493.   End;
  494. End;
  495.  
  496. Procedure FadeOut(n,d:byte);
  497. var i:byte;
  498. Begin
  499.   For i:=63 downto 1 do Begin
  500.     SetRgb(n,i,i,i);
  501.     Delay(d*10);
  502.   End;
  503. End;
  504.  
  505. Procedure Fade(n,d,kd:byte);
  506. Begin
  507. FadeIn(n,d);
  508. Delay(kd*100);
  509. FadeOut(n,d);
  510. End;
  511.  
  512. Procedure Re(n:byte);
  513. Begin
  514.   SetRgb(n,i,i,i);
  515.   SetColor(n);
  516. End;
  517.  
  518. Begin
  519.   Star_Open;
  520.   Tie1_open;
  521.   DetectGraph(m,i);
  522.   InitGraph(m,i,'');
  523.   ClearDevice;
  524.   Star_Full;
  525.   {Star Wars dezign}
  526.   SetRgb(3,25,40,10);
  527.   SetRgb(7,0,0,0);
  528.   SetRgb(1,60,25,60);
  529.   SetTextStyle(1,0,5);
  530.   SetColor(3);
  531.   OutTextXY(230,250,'Star Wars');
  532.   SetTextStyle(1,0,2);
  533.   OutTextXY(410,440,'   poor productum');
  534.   Star(320,280,1,3);
  535.   delay(4000);
  536.   For i:=1 to 25 do Begin
  537.     SetRgb(7,i,i,i);
  538.     SetRgb(3,25-i,40-i,10);
  539.   End;
  540.   {Go on}
  541.   ClearDevice;
  542.   SetRgb(7,0,0,0);
  543.   SetRgb(2,0,0,0);
  544.   SetRgb(1,0,0,0);
  545.   SetRgb(3,0,0,0);
  546.   Hatter;
  547.   delay(1000);
  548.   Tie1(320,200,7,0,0);
  549.   For i:=1 to 20 do Begin
  550.     SetRgb(0,41,40,31);
  551.     Delay(100);
  552.     SetRgb(0,0,0,0);
  553.     Delay(50);
  554.     If i=10 then Begin
  555.       For m:=1 to 3 do SetRgb(i,20,20,20);
  556.       Delay(1000);
  557.     End;
  558.   End;
  559.   SetRgb(7,50,50,50);
  560.   SetRgb(2,20,60,50);
  561.   SetRgb(1,60,30,60);
  562.   SetRgb(3,15,40,0);
  563.   SetTextStyle(1,0,1);
  564.   SetColor(12);
  565.   OutTextXY(0,0,'Number of Deads:');
  566.   OutTextXY(180,0,'19561');
  567.   Delay(250);
  568.   Tie1(320,200,0,0,0);
  569.   {Mozg Tie-Fighter}
  570.   Mozg_Tfig(150,320,200,1,19561);
  571.   For I:=1 to 20 Do Begin
  572.    SetTextStyle(1,0,8);
  573.    If I/2=I Div 2 Then SetColor(7) Else SetColor(0);
  574.    OutTextXY(150,150,'THE END');
  575.    Delay(100);
  576.   End;
  577.   Delay(1000);
  578.   CloseGraph;
  579.   ClrScr;
  580.   delay(500);
  581.   GotoXy(1,24);
  582.   For i:=1 to 3680 div 2 do Begin
  583.     m:=ord(pure[i*2]);
  584.     TextColor(m);
  585.     Write(pure[i*2-1]);
  586.     delay(10);
  587.   End;
  588.   Delay(3000);
  589. End.
  590.